  �*  Q   k820309    �          2021.12.0   �g                                                                                                          
       B:\1.) Business Cycles and Insurance - Paper\JPE Macro - Final Revisions\Computation\Final Submission\BCI_JPEM\BCI\Fortran_TB.f90 FORTRAN_TB                      @                                      
                                                                 
                
                 -C��6?        0.0001                                                                                                            11                                                                                                                                                                         
                
                       �?        1.0                                                          
                
                                 0.0                                                          
                
                 ���S��?        0.989                                                                                             �               250                                                      	                                                      2#         @                                            
                    #X_MIN    #X_MAX    #NX    #XGRID              
                                               
                
                                               
                
  @                                                            D                                                             
     p          5 � p        r        5 � p        r                      #         @                                                                #X_MIN    #X_MAX    #NX    #XGRID              
                                               
                
                                               
                
  @                                                            D @                                                           
     p          5 � p        r        5 � p        r                      #         @                                                                #XGRID    #XVAL    #X_LOW    #X_HIGH    #NX    #IX    #OMEGA_X             
                                                              
    p          5 � p        r        5 � p        r                                
                                               
                
                                                                
                                                                
                                                                D                                                                D                                              
       #         @                                                                #RHO    #SIGMA_ETA    #NE    #PI_E     #XGRID !             
                                               
                
                                               
                
                                                               D                                                              
       p        5 � p        r    p          5 � p        r      5 � p        r        5 � p        r      5 � p        r                               D                                         !                    
     p          5 � p        r        5 � p        r                      #         @                                            "                    #NX #   #PI_X $   #PI_ERG %             
  @                                        #                    
                                          $                    
 
     p        5 � p        r #   p          5 � p        r #     5 � p        r #       5 � p        r #     5 � p        r #                              D                                         %                    
 	    p          5 � p        r #       5 � p        r #                     #         @                                            &                    #N '   #M (   #X )   #XT *             
                                           '                     
                                           (                    
                                          )                    
      p        5 � p        r '   p          5 � p        r '     5 � p        r (       5 � p        r '     5 � p        r (                              D                                         *                    
       p        5 � p        r (   p          5 � p        r (     5 � p        r '       5 � p        r (     5 � p        r '                     #         @                                            +                    #N ,   #A -   #A_INV .             
                                           ,                    
                                          -                    
      p        5 � p        r ,   p          5 � p        r ,     5 � p        r ,       5 � p        r ,     5 � p        r ,                              D                                         .                    
       p        5 � p        r ,   p          5 � p        r ,     5 � p        r ,       5 � p        r ,     5 � p        r ,                     #         @                                            /                    #N 0   #NA 1   #NB 2   #A 3   #B 4   #X 5             
                                           0                     
                                           1                     
                                           2                    
                                          3                    
      p        5 � p        r 1   p          5 � p        r 1     5 � p        r 0       5 � p        r 1     5 � p        r 0                              
                                          4                    
      p        5 � p        r 0   p          5 � p        r 0     5 � p        r 2       5 � p        r 0     5 � p        r 2                              D                                         5                    
       p        5 � p        r 1   p          5 � p        r 1     5 � p        r 2       5 � p        r 1     5 � p        r 2                     #         @                                            6                    #N 7   #LAMBDA 8   #X_VEC 9   #X_TILDE :             
  @                                        7                     
                                          8     
               
  @                                       9                    
    p          5 � p        r 7       5 � p        r 7                              D                                         :                    
     p          5 � p        r 7       5 � p        r 7                     #         @                                            ;                    #N <   #NX =   #Y_VEC >   #X ?   #B_VEC @             
  @                                        <                     
  @                                        =                    
  @                                       >                    
    p          5 � p        r <       5 � p        r <                              
  @                                       ?                    
      p        5 � p        r <   p          5 � p        r <     5 � p        r =       5 � p        r <     5 � p        r =                              D @                                       @                    
     p          5 � p        r =       5 � p        r =                     #         @                                            A                    #N B   #VECTOR C   #MEAN D             
  @                                        B                    
                                          C                    
 $   p          5 � p        r B       5 � p        r B                               D                                         D     
       #         @                                            E                    #N F   #MEAN G   #VECTOR H   #SD I             
  @                                        F                     
                                          G     
               
                                          H                    
 %   p          5 � p        r F       5 � p        r F                               D @                                       I     
       #         @                                            J                    #N K   #MEAN_X L   #MEAN_Y M   #X_VEC N   #Y_VEC O   #CORR P             
                                           K                     
                                          L     
                
                                          M     
               
                                          N                    
 &   p          5 � p        r K       5 � p        r K                              
                                          O                    
 '   p          5 � p        r K       5 � p        r K                               D                                         P     
          �   �      fn#fn    5  H   J   BCI_PAR "   }  ~       PRECISION+BCI_PAR    �  z       NE+BCI_PAR    u  x       RP+BCI_PAR    �  {       ONE+BCI_PAR    h  {       ZERO+BCI_PAR    �  }       RHO+BCI_PAR    `  {       NA+BCI_PAR    �  y       NB+BCI_PAR    T  y       LINSPACE    �  H   a   LINSPACE%X_MIN      H   a   LINSPACE%X_MAX    ]  H   a   LINSPACE%NX    �  �   a   LINSPACE%XGRID    a  y       LOGSPACE    �  H   a   LOGSPACE%X_MIN    "  H   a   LOGSPACE%X_MAX    j  H   a   LOGSPACE%NX    �  �   a   LOGSPACE%XGRID    n	  �       INTERPOLATION $   
  �   a   INTERPOLATION%XGRID #   �
  H   a   INTERPOLATION%XVAL $     H   a   INTERPOLATION%X_LOW %   S  H   a   INTERPOLATION%X_HIGH !   �  H   a   INTERPOLATION%NX !   �  H   a   INTERPOLATION%IX &   +  H   a   INTERPOLATION%OMEGA_X    s  �       ROUWENHORST     �  H   a   ROUWENHORST%RHO &   @  H   a   ROUWENHORST%SIGMA_ETA    �  H   a   ROUWENHORST%NE !   �  ,  a   ROUWENHORST%PI_E "   �  �   a   ROUWENHORST%XGRID    �  n       ERGODIC    &  H   a   ERGODIC%NX    n  ,  a   ERGODIC%PI_X    �  �   a   ERGODIC%PI_ERG !   V  m       MATRIX_TRANSPOSE #   �  H   a   MATRIX_TRANSPOSE%N #     H   a   MATRIX_TRANSPOSE%M #   S  ,  a   MATRIX_TRANSPOSE%X $     ,  a   MATRIX_TRANSPOSE%XT !   �  i       MATRIX_INVERSION #     H   a   MATRIX_INVERSION%N #   \  ,  a   MATRIX_INVERSION%A '   �  ,  a   MATRIX_INVERSION%A_INV &   �  |       MATRIX_MULTIPLICATION (   0  H   a   MATRIX_MULTIPLICATION%N )   x  H   a   MATRIX_MULTIPLICATION%NA )   �  H   a   MATRIX_MULTIPLICATION%NB (     ,  a   MATRIX_MULTIPLICATION%A (   4  ,  a   MATRIX_MULTIPLICATION%B (   `  ,  a   MATRIX_MULTIPLICATION%X    �  {       HP_FILTER      H   a   HP_FILTER%N !   O  H   a   HP_FILTER%LAMBDA     �  �   a   HP_FILTER%X_VEC "   S  �   a   HP_FILTER%X_TILDE (      |       REGRESSION_COEFFICIENTS *   �   H   a   REGRESSION_COEFFICIENTS%N +   �   H   a   REGRESSION_COEFFICIENTS%NX .   !  �   a   REGRESSION_COEFFICIENTS%Y_VEC *   �!  ,  a   REGRESSION_COEFFICIENTS%X .   #  �   a   REGRESSION_COEFFICIENTS%B_VEC    �#  m       AVERAGE    ,$  H   a   AVERAGE%N    t$  �   a   AVERAGE%VECTOR    0%  H   a   AVERAGE%MEAN #   x%  u       STANDARD_DEVIATION %   �%  H   a   STANDARD_DEVIATION%N (   5&  H   a   STANDARD_DEVIATION%MEAN *   }&  �   a   STANDARD_DEVIATION%VECTOR &   9'  H   a   STANDARD_DEVIATION%SD (   �'  �       CORRELATION_COEFFICIENT *   (  H   a   CORRELATION_COEFFICIENT%N /   X(  H   a   CORRELATION_COEFFICIENT%MEAN_X /   �(  H   a   CORRELATION_COEFFICIENT%MEAN_Y .   �(  �   a   CORRELATION_COEFFICIENT%X_VEC .   �)  �   a   CORRELATION_COEFFICIENT%Y_VEC -   `*  H   a   CORRELATION_COEFFICIENT%CORR 